inherited dtmda_UnitInfo: Tdtmda_UnitInfo
  OldCreateOrder = True
  Left = 453
  Top = 258
  Height = 394
  Width = 634
  inherited adsMaster: TADODataSet
    CursorType = ctStatic
    CommandText = 'select * from V_da_Unit '
    Top = 48
    object adsMasterUnitID: TStringField
      DisplayLabel = 'ID'
      FieldName = 'UnitID'
    end
    object adsMasterUnitCode: TStringField
      DisplayLabel = #20195#30721
      FieldName = 'UnitCode'
    end
    object adsMasterUnitName: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'UnitName'
    end
    object adsMasterHelperCode: TStringField
      DisplayLabel = #21161#35760#31526
      FieldName = 'HelperCode'
    end
    object adsMasterGroupID: TStringField
      DisplayLabel = #21333#20301#32452#21035'ID'
      FieldName = 'GroupID'
    end
    object adsMasterConversion: TBCDField
      DisplayLabel = #25442#31639#29575
      FieldName = 'Conversion'
      Precision = 9
    end
    object adsMasterHasMasUnit: TBooleanField
      DisplayLabel = #26159#21542#20027#35745#37327#21333#20301
      FieldName = 'HasMasUnit'
    end
    object adsMasterHasUse: TBooleanField
      DisplayLabel = #26159#21542#20351#29992
      FieldName = 'HasUse'
    end
    object adsMasterHasDefault: TBooleanField
      DisplayLabel = #26159#21542#40664#35748
      FieldName = 'HasDefault'
    end
    object adsMasterHasSysdefine: TBooleanField
      DisplayLabel = #26159#21542#31995#32479#23450#20041
      FieldName = 'HasSysdefine'
    end
    object adsMasterHasCheck: TBooleanField
      DisplayLabel = #26159#21542#23457#26680
      FieldName = 'HasCheck'
    end
    object adsMasterChecker: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterCheckTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterHasStop: TBooleanField
      DisplayLabel = #26159#21542#31105#29992
      FieldName = 'HasStop'
    end
    object adsMasterStoper: TStringField
      DisplayLabel = #31105#29992#20154
      FieldName = 'Stoper'
    end
    object adsMasterStopDate: TDateTimeField
      DisplayLabel = #31105#29992#26102#38388
      FieldName = 'StopDate'
    end
    object adsMasterStopMemo: TStringField
      DisplayLabel = #31105#29992#35828#26126
      FieldName = 'StopMemo'
      Size = 100
    end
    object adsMasterWriter: TStringField
      Tag = 1
      DisplayLabel = #24405#20837#20154
      FieldName = 'Writer'
    end
    object adsMasterWriteTime: TDateTimeField
      Tag = 1
      DisplayLabel = #24405#20837#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterModifier: TStringField
      Tag = 1
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterModifyTime: TDateTimeField
      Tag = 1
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 100
    end
  end
  inherited frdsMain: TfrDBDataSet
    Top = 104
  end
  inherited adsMasterEdit: TADODataSet
    CursorType = ctStatic
    CommandText = 'select * from da_Unit'
    object adsMasterEditUnitID: TStringField
      DisplayLabel = #21333#20301'ID'
      FieldName = 'UnitID'
    end
    object adsMasterEditUnitCode: TStringField
      DisplayLabel = #20195#30721
      FieldName = 'UnitCode'
    end
    object adsMasterEditUnitName: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'UnitName'
      OnChange = adsMasterEditUnitNameChange
    end
    object adsMasterEditHelperCode: TStringField
      DisplayLabel = #21161#35760#31526
      FieldName = 'HelperCode'
    end
    object adsMasterEditGroupID: TStringField
      DisplayLabel = #21333#20301#32452#21035'ID'
      FieldName = 'GroupID'
    end
    object adsMasterEditConversion: TBCDField
      DisplayLabel = #25442#31639#29575
      FieldName = 'Conversion'
      Precision = 9
    end
    object adsMasterEditUnitDigit: TIntegerField
      DisplayLabel = #23567#25968#20301#25968
      FieldName = 'UnitDigit'
    end
    object adsMasterEditHasMasUnit: TBooleanField
      DisplayLabel = #26159#21542#20027#35745#37327#21333#20301
      FieldName = 'HasMasUnit'
    end
    object adsMasterEditStoper: TStringField
      DisplayLabel = #31105#29992#20154
      FieldName = 'Stoper'
    end
    object adsMasterEditStopDate: TDateTimeField
      DisplayLabel = #31105#29992#26102#38388
      FieldName = 'StopDate'
    end
    object adsMasterEditStopMemo: TStringField
      DisplayLabel = #31105#29992#35828#26126
      FieldName = 'StopMemo'
      Size = 100
    end
    object adsMasterEditHasStop: TBooleanField
      DisplayLabel = #26159#21542#31105#29992
      FieldName = 'HasStop'
    end
    object adsMasterEditHasUse: TBooleanField
      DisplayLabel = #26159#21542#20351#29992
      FieldName = 'HasUse'
    end
    object adsMasterEditHasDefault: TBooleanField
      DisplayLabel = #26159#21542#40664#35748
      FieldName = 'HasDefault'
    end
    object adsMasterEditHasSysdefine: TBooleanField
      DisplayLabel = #26159#21542#31995#32479#23450#20041
      FieldName = 'HasSysdefine'
    end
    object adsMasterEditHasCheck: TBooleanField
      DisplayLabel = #26159#21542#23457#26680
      FieldName = 'HasCheck'
    end
    object adsMasterEditChecker: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterEditCheckTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterEditWriter: TStringField
      Tag = 1
      DisplayLabel = #24405#20837#20154
      FieldName = 'Writer'
    end
    object adsMasterEditWriteTime: TDateTimeField
      Tag = 1
      DisplayLabel = #24405#20837#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterEditModifier: TStringField
      Tag = 1
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterEditModifyTime: TDateTimeField
      Tag = 1
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterEditRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 100
    end
    object adsMasterEditFind_GroupName: TStringField
      DisplayLabel = #21333#20301#32452#21035
      FieldKind = fkLookup
      FieldName = 'Find_GroupName'
      LookupDataSet = Find_V_da_UnitGroup
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'GroupID'
      Lookup = True
    end
  end
  object Find_V_da_UnitGroup: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    CommandText = 'select * from V_da_UnitGroup'
    CommandTimeout = 0
    Parameters = <>
    Left = 168
    Top = 104
  end
  object adsUnitGroupTree: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select * from V_da_UnitGroup order by Code'
    Parameters = <>
    Left = 232
    Top = 8
  end
  object AdsCurGroup_UnitInfo: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    CommandText = 'select * from V_da_Unit'#13#10'where GroupID=:@GroupID'
    Parameters = <
      item
        Name = '@GroupID'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = ''
      end>
    Left = 320
    Top = 104
    object AdsCurGroup_UnitInfoID: TStringField
      FieldName = 'ID'
    end
    object AdsCurGroup_UnitInfoUnitCode: TStringField
      DisplayLabel = #20195#30721
      FieldName = 'UnitCode'
    end
    object AdsCurGroup_UnitInfoUnitName: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'UnitName'
    end
    object AdsCurGroup_UnitInfoHelperCode: TStringField
      DisplayLabel = #21161#35760#31526
      FieldName = 'HelperCode'
    end
    object AdsCurGroup_UnitInfoGroupID: TStringField
      DisplayLabel = #21333#20301#32452#21035
      FieldName = 'GroupID'
    end
    object AdsCurGroup_UnitInfoRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 100
    end
    object AdsCurGroup_UnitInfoConversion: TBCDField
      DisplayLabel = #25442#31639#29575
      FieldName = 'Conversion'
      Precision = 9
    end
    object AdsCurGroup_UnitInfoHasMasUnit: TBooleanField
      DisplayLabel = #26159#21542#20027#35745#37327#21333#20301
      FieldName = 'HasMasUnit'
    end
    object AdsCurGroup_UnitInfoHasUse: TBooleanField
      DisplayLabel = #26159#21542#20351#29992
      FieldName = 'HasUse'
    end
    object AdsCurGroup_UnitInfoHasStop: TBooleanField
      DisplayLabel = #26159#21542#31105#29992
      FieldName = 'HasStop'
    end
    object AdsCurGroup_UnitInfoGroupIDCode: TStringField
      DisplayLabel = #32452#21035#32534#30721
      FieldKind = fkLookup
      FieldName = 'GroupIDCode'
      LookupDataSet = Find_V_da_UnitGroup
      LookupKeyFields = 'ID'
      LookupResultField = 'code'
      KeyFields = 'GroupID'
      Lookup = True
    end
    object AdsCurGroup_UnitInfoGroupIDName: TStringField
      DisplayLabel = #32452#21035#21517#31216
      FieldKind = fkLookup
      FieldName = 'GroupIDName'
      LookupDataSet = Find_V_da_UnitGroup
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'GroupID'
      Lookup = True
    end
  end
end
